home *** CD-ROM | disk | FTP | other *** search
- ; This script will install BootMenu.
- ; $VER: BootMenuInstall 1.0 (WolfSoft) (02-Jun-1993)
-
- (set @default-dest "RAM:")
-
- (welcome)
-
- (if (not (exists "S:Startup-Sequence.Original"))
- (
- (rename "S:Startup-Sequence" "S:Startup-Sequence.Original"
- (prompt "Rename S:Startup-Sequence to "
- "S:Startup-Sequence.Orignal ?")
- (help @rename-help)
- (confirm)
- )
- (set substitute true)
- )
- )
-
- (copylib
- (prompt "BootMenu")
- (help @copylib-help)
- (source "BootMenu")
- (dest "C:")
- (confirm)
- )
-
- (if (= substitute true)
- (copylib
- (prompt "Startup-Sequence")
- (help @copyfiles-help)
- (source "Startup-Sequence")
- (dest "S:")
- (confirm)
- )
- )
-
- (if (not (exists "S:BootMenu"))
- (makedir "S:BootMenu"
- (prompt "MakeDir S:BootMenu ?")
- (help @makedir-help)
- (confirm)
- )
- )
-
- (if (exists "S:BootMenu")
- (copylib
- (prompt "Just a Shell")
- (help @copylib-help)
- (source "Just a Shell")
- (dest "S:BootMenu")
- (confirm)
- )
- )
-